﻿Public Class XuatChiTietDT
    Private _ma As String
    Public Property Ma
        Get
            Return _ma
        End Get
        Set(ByVal value)
            _ma = value
        End Set
    End Property

    Private _stt As Integer
    Public Property STT
        Get
            Return _stt
        End Get
        Set(ByVal value)
            _stt = value
        End Set
    End Property

    Private _maLoai As Integer
    Public Property MaLoai
        Get
            Return _maLoai
        End Get
        Set(ByVal value)
            _maLoai = value
        End Set
    End Property

    Private _soluong As Double
    Public Property SoLuong
        Get
            Return _soluong
        End Get
        Set(ByVal value)
            _soluong = value
        End Set
    End Property

    Private _maKH As String
    Public Property MaKH
        Get
            Return _maKH
        End Get
        Set(ByVal value)
            _maKH = value
        End Set
    End Property

    Private _ghiChu As String
    Public Property GhiChu
        Get
            Return _ghiChu
        End Get
        Set(ByVal value)
            _ghiChu = value
        End Set
    End Property

    Private _thanhtien As Double
    Public Property ThanhTien
        Get
            Return _thanhtien
        End Get
        Set(ByVal value)
            _thanhtien = value
        End Set
    End Property

    'search
    Public Sub New(ByVal ma As String, ByVal stt As Integer)
        Me._stt = stt
        Me._ma = ma
    End Sub

    'search theo so tien
    Public Sub New(ByVal thanhtien As Double)
        Me._thanhtien = thanhtien
    End Sub

    'khoitao
    Public Sub New(ByVal ma As String, ByVal stt As Integer, ByVal maLoai As String, ByVal soluong As Double, ByVal kh As String, ByVal ghichu As String, ByVal thanhtien As Double)
        Me._stt = stt
        Me._ma = ma
        Me._maLoai = maLoai
        Me._maKH = kh
        Me._soluong = soluong
        Me._ghiChu = ghichu
        Me._thanhtien = thanhtien
    End Sub
    Public Sub New(ByVal ma As String, ByVal stt As Integer, ByVal maLoai As String, ByVal soluong As Double, ByVal ghichu As String, ByVal thanhtien As Double)
        Me._stt = stt
        Me._ma = ma
        Me._maLoai = maLoai
        Me._soluong = soluong
        Me._ghiChu = ghichu
        Me._thanhtien = thanhtien
    End Sub
    Public Sub New(ByVal ma As String, ByVal stt As Integer, ByVal ghichu As String)
        Me._stt = stt
        Me._ma = ma
        Me._ghiChu = ghichu
    End Sub

    'Update
    Public Sub New(ByVal ma As String, ByVal stt As Integer, ByVal kh As String, ByVal ghichu As String)
        Me._stt = stt
        Me._ma = ma
        Me._maKH = kh
        Me._ghiChu = ghichu
    End Sub
End Class
